home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Zoom.AmiCAD < prev   
Text File  |  1998-08-08  |  746b  |  25 lines
  1. /* Script permettant de passer en basse résolution */
  2. /* Mémorise les modes courants pour retour à l'aide du script UnZoom */
  3. /* © R.Florac, 3 Mars 1998, version 1.1 */
  4.  
  5. options results
  6.  
  7. signal on error     /* pour l'interception des erreurs */
  8. signal on syntax
  9.  
  10. 'MODE_ÉCRAN=SCRMODE:FONTE=FONTNAME(SELSHEET(-1)):TAILLE_FONTE=FONTSIZE(SELSHEET(-1))'
  11. 'HAUTEUR_ÉCRAN=SHEIGHT:LARGEUR_ÉCRAN=SWIDTH:LARGEUR_FENÊTRE=MESURE(2):HAUTEUR_FENÊTRE=MESURE(3):X_GAUCHE=MESURE(0):Y_HAUT=MESURE(1)'
  12.  
  13. 'SCREEN(135168,320,256,"thinpaz.font",8)'
  14. exit
  15.  
  16. /* Traitement des erreurs, interruption du programme */
  17. syntax:
  18. erreur=RC
  19. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  20. exit
  21.  
  22. error:
  23. 'MESSAGE("Erreur en ligne 'SIGL'")'
  24. exit
  25.